how to parse xml file in perl